home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / sbin / update-pangox-aliases < prev    next >
Text File  |  2009-09-22  |  2KB  |  74 lines
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use POSIX;
  5. use vars qw(%UNSUPPORTED_XLFD);
  6.  
  7. my $PangoAlias = '/var/lib/defoma/pango.d/pangox.aliases';
  8. my $ConfFile = '/etc/defoma/config/pango.conf';
  9. my @clean = ("/usr/bin/defoma-app", "clean", "pango");
  10. my @update = ("/usr/bin/defoma-app", "update", "pango");
  11.  
  12. # write section
  13. sub write_section {
  14.     my $file = shift;
  15.     my $family = shift;
  16.  
  17.     open (F, ">> $file");
  18.     print F "$family normal normal normal normal \\\n\t\"";
  19.     if (exists ($UNSUPPORTED_XLFD {"$family-normal-normal-normal-normal"})) {
  20.         print F $UNSUPPORTED_XLFD {"$family-normal-normal-normal-normal"};
  21.         print F ",\\\n\t";
  22.     }
  23.     print F "-*-fixed-medium-r-normal--*-*-*-*-*-*-*-*\"\n\n";
  24.  
  25.     print F "$family italic normal normal normal \\\n\t\"";
  26.     if (exists ($UNSUPPORTED_XLFD {"$family-italic-normal-normal-normal"})) {
  27.         print F $UNSUPPORTED_XLFD {"$family-italic-normal-normal-normal"};
  28.         print F ",\\\n\t";
  29.     }
  30.     print F "-*-fixed-medium-i-normal--*-*-*-*-*-*-*-*\"\n\n";
  31.  
  32.     print F "$family normal normal bold normal \\\n\t\"";
  33.     if (exists ($UNSUPPORTED_XLFD {"$family-normal-normal-bold-normal"})) {
  34.         print F $UNSUPPORTED_XLFD {"$family-normal-normal-bold-normal"};
  35.         print F ",\\\n\t";
  36.     }
  37.     print F "-*-fixed-bold-r-normal--*-*-*-*-*-*-*-*\"\n\n";
  38.  
  39.     print F "$family italic normal bold normal \\\n\t\"";
  40.     if (exists ($UNSUPPORTED_XLFD {"$family-italic-normal-bold-normal"})) {
  41.         print F $UNSUPPORTED_XLFD {"$family-italic-normal-bold-normal"};
  42.         print F ",\\\n\t";
  43.     }
  44.     print F "-*-fixed-bold-i-normal--*-*-*-*-*-*-*-*\"\n\n";
  45.     close F;
  46. }
  47.  
  48. system (@clean) == 0 or die "Failed to clean up for defoma: $?";
  49. system (@update) == 0 or die "Failed to update for defoma: $?";
  50.  
  51. if ( ! -e $PangoAlias ) {
  52.     print "*** You don't have any defomized font packages.\n";
  53.     print "*** So we are trying to force to generate pangox.aliases...\n";
  54.  
  55.     do "$ConfFile" or die ("$@\n");
  56.  
  57.     open (F, "> $PangoAlias.bak") or die "Can't create $PangoAlias.bak: $?";
  58.     print F "## THIS FILE IS GENERATED BY UPDATE-PANGOX-ALIAS, DO NOT EDIT\n\n";
  59.     close F;
  60.  
  61.     ## Sans
  62.     write_section ("$PangoAlias.bak", "sans");
  63.  
  64.     ## Serif
  65.     write_section ("$PangoAlias.bak", "serif");
  66.  
  67.     ## Monospace
  68.     write_section ("$PangoAlias.bak", "monospace");
  69.  
  70.     rename ("$PangoAlias.bak", "$PangoAlias");
  71. }
  72.  
  73. 1;
  74.